home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / devel / vbcc-68k-src / machines / amiga68k / libsrc / stdio / _fillbuf.c < prev    next >
C/C++ Source or Header  |  1999-01-01  |  720b  |  27 lines
  1. #include <stdlib.h>
  2. #include <stdio.h>
  3.  
  4. #include <proto/dos.h>
  5.  
  6. /*  liest Daten in den Buffer   */
  7. int _fillbuf(FILE *f)
  8. {
  9.     _chkabort();
  10.     if(!f) return(EOF);
  11.     if((f->flags&(_READABLE|_WRITE|_EOF|_ERR))!=_READABLE) return(EOF);
  12.     f->flags|=_READ;
  13.     if(!f->bufsize){if(f->flags&_UNBUF) f->bufsize=1; else f->bufsize=BUFSIZ;}
  14.     if(!f->base)
  15.         if(!(f->base=(char *)malloc(f->bufsize+1)+1))
  16.             return(EOF);
  17.     f->pointer=f->base;
  18.     f->count=Read((BPTR)f->filehandle,f->pointer,(long)f->bufsize);
  19.     if(--f->count<0){
  20.         if(f->count==-1) f->flags|=_EOF;
  21.          else            f->flags|=_ERR;
  22.         f->count=0;
  23.         return(EOF);
  24.     }
  25.     return((unsigned char) *f->pointer++);
  26. }
  27.